home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / VBTOOL20.ZIP / TOOLDEMO.FRM < prev    next >
Text File  |  1993-01-30  |  18KB  |  686 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "ToolButton Demo"
  5.    ForeColor       =   &H00C0C0C0&
  6.    Height          =   2676
  7.    HelpContextID   =   101
  8.    Icon            =   TOOLDEMO.FRX:0000
  9.    Left            =   1068
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1932
  13.    ScaleWidth      =   4800
  14.    Top             =   1272
  15.    Width           =   4896
  16.    Begin ContextHelp ContextHelp1 
  17.       Enabled         =   0   'False
  18.       Left            =   4110
  19.       Tag             =   "Left click for help, Esc to cancel"
  20.       Top             =   1290
  21.    End
  22.    Begin TextBox Text1 
  23.       Height          =   825
  24.       HelpContextID   =   103
  25.       Left            =   -15
  26.       MultiLine       =   -1  'True
  27.       ScrollBars      =   2  'Vertical
  28.       TabIndex        =   0
  29.       TabStop         =   0   'False
  30.       Text            =   "Text1"
  31.       Top             =   420
  32.       Width           =   4800
  33.    End
  34.    Begin Line Line1 
  35.       BorderColor     =   &H00808080&
  36.       Index           =   1
  37.       X1              =   0
  38.       X2              =   4755
  39.       Y1              =   405
  40.       Y2              =   405
  41.    End
  42.    Begin Line Line1 
  43.       BorderColor     =   &H00FFFFFF&
  44.       Index           =   0
  45.       X1              =   0
  46.       X2              =   4755
  47.       Y1              =   0
  48.       Y2              =   0
  49.    End
  50.    Begin ToolButton ToolButton 
  51.       BackColor       =   &H8000000F&
  52.       Height          =   264
  53.       HelpContextID   =   200
  54.       HintMessage     =   "Clears the TextBox"
  55.       Index           =   0
  56.       Left            =   96
  57.       StandardButton  =   4  'File New
  58.       Top             =   48
  59.       Width           =   288
  60.    End
  61.    Begin ToolButton ToolButton 
  62.       BackColor       =   &H8000000F&
  63.       Height          =   264
  64.       HelpContextID   =   201
  65.       HintMessage     =   "Reads a file into the TextBox"
  66.       Index           =   1
  67.       Left            =   432
  68.       StandardButton  =   5  'File Open
  69.       Top             =   48
  70.       Width           =   288
  71.    End
  72.    Begin ToolButton ToolButton 
  73.       BackColor       =   &H8000000F&
  74.       Height          =   264
  75.       HelpContextID   =   202
  76.       HintMessage     =   "Saves the TextBox to a file"
  77.       Index           =   2
  78.       Left            =   780
  79.       StandardButton  =   6  'File Save
  80.       Top             =   48
  81.       Width           =   288
  82.    End
  83.    Begin ToolButton ToolButton 
  84.       BackColor       =   &H8000000F&
  85.       Enabled         =   0   'False
  86.       Height          =   264
  87.       HelpContextID   =   203
  88.       HintMessage     =   "Prints the textbox (NOT IMPLEMENTED)"
  89.       Index           =   3
  90.       Left            =   1128
  91.       StandardButton  =   7  'File Print
  92.       Top             =   48
  93.       Width           =   288
  94.    End
  95.    Begin ToolButton ToolButton 
  96.       BackColor       =   &H8000000F&
  97.       Height          =   264
  98.       HelpContextID   =   204
  99.       HintMessage     =   "Cuts the selection to the clipboard"
  100.       Index           =   4
  101.       Left            =   1572
  102.       StandardButton  =   1  'Edit Cut
  103.       Top             =   48
  104.       Width           =   288
  105.    End
  106.    Begin ToolButton ToolButton 
  107.       BackColor       =   &H8000000F&
  108.       Height          =   264
  109.       HelpContextID   =   205
  110.       HintMessage     =   "Copies the selection to the clipboard"
  111.       Index           =   5
  112.       Left            =   1920
  113.       StandardButton  =   2  'Edit Copy
  114.       Top             =   48
  115.       Width           =   288
  116.    End
  117.    Begin ToolButton ToolButton 
  118.       BackColor       =   &H8000000F&
  119.       Height          =   264
  120.       HelpContextID   =   206
  121.       HintMessage     =   "Replaces the selection with the clipboard contents"
  122.       Index           =   6
  123.       Left            =   2268
  124.       StandardButton  =   3  'Edit Paste
  125.       Top             =   48
  126.       Width           =   288
  127.    End
  128.    Begin ToolButton ToolButton 
  129.       BackColor       =   &H8000000F&
  130.       ButtonSource    =   1  'Custom
  131.       ButtonType      =   1  'Attribute
  132.       CustomButton    =   1
  133.       CustomCount     =   3
  134.       Height          =   264
  135.       HelpContextID   =   207
  136.       HintMessage     =   "Sets the TextBox FontBold attribute"
  137.       Index           =   7
  138.       Left            =   2712
  139.       Picture         =   TOOLDEMO.FRX:0302
  140.       StandardButton  =   5  'File Open
  141.       Top             =   48
  142.       Value           =   1  'Down
  143.       Width           =   288
  144.    End
  145.    Begin ToolButton ToolButton 
  146.       BackColor       =   &H8000000F&
  147.       ButtonSource    =   1  'Custom
  148.       ButtonType      =   1  'Attribute
  149.       Height          =   264
  150.       HelpContextID   =   208
  151.       HintMessage     =   "Sets the TextBox FontItalic attribute"
  152.       Index           =   8
  153.       Left            =   3060
  154.       StandardButton  =   3  'Edit Paste
  155.       Top             =   48
  156.       Width           =   288
  157.    End
  158.    Begin ToolButton ToolButton 
  159.       BackColor       =   &H8000000F&
  160.       ButtonSource    =   1  'Custom
  161.       ButtonType      =   1  'Attribute
  162.       Height          =   264
  163.       HelpContextID   =   209
  164.       HintMessage     =   "Sets the TextBox FontUnderline attribute"
  165.       Index           =   9
  166.       Left            =   3408
  167.       StandardButton  =   3  'Edit Paste
  168.       Top             =   48
  169.       Width           =   288
  170.    End
  171.    Begin ToolButton ToolButton 
  172.       BackColor       =   &H8000000F&
  173.       Height          =   264
  174.       HelpContextID   =   210
  175.       HintMessage     =   "Enables context-sensitive help"
  176.       Index           =   10
  177.       Left            =   3852
  178.       StandardButton  =   9  'Context-Sensitive Help
  179.       Top             =   48
  180.       Width           =   288
  181.    End
  182.    Begin ToolButton ToolButton 
  183.       BackColor       =   &H8000000F&
  184.       Height          =   264
  185.       HelpContextID   =   211
  186.       HintMessage     =   "Displays the ToolButton help contents"
  187.       Index           =   11
  188.       Left            =   4200
  189.       StandardButton  =   8  'Help
  190.       Top             =   48
  191.       Width           =   288
  192.    End
  193.    Begin Label Label1 
  194.       BackColor       =   &H00C0C0C0&
  195.       Caption         =   "Label1"
  196.       FontBold        =   0   'False
  197.       FontItalic      =   0   'False
  198.       FontName        =   "MS Sans Serif"
  199.       FontSize        =   7.8
  200.       FontStrikethru  =   0   'False
  201.       FontUnderline   =   0   'False
  202.       Height          =   240
  203.       Left            =   45
  204.       TabIndex        =   1
  205.       Top             =   1335
  206.       Width           =   690
  207.    End
  208.    Begin Menu ABFile 
  209.       Caption         =   "&File"
  210.       Begin Menu MIFileNew 
  211.          Caption         =   "&New"
  212.       End
  213.       Begin Menu MIFileOpen 
  214.          Caption         =   "&Open..."
  215.          Shortcut        =   +{F12}
  216.       End
  217.       Begin Menu MIFileSaveAs 
  218.          Caption         =   "&Save As..."
  219.          Shortcut        =   {F12}
  220.       End
  221.       Begin Menu MIFileSep1 
  222.          Caption         =   "-"
  223.       End
  224.       Begin Menu MIFilePrint 
  225.          Caption         =   "&Print"
  226.          Enabled         =   0   'False
  227.       End
  228.       Begin Menu MIFileSep2 
  229.          Caption         =   "-"
  230.       End
  231.       Begin Menu MIFileExit 
  232.          Caption         =   "E&xit"
  233.       End
  234.    End
  235.    Begin Menu ABEdit 
  236.       Caption         =   "&Edit"
  237.       Begin Menu MIEditCut 
  238.          Caption         =   "Cu&t"
  239.          Shortcut        =   ^X
  240.       End
  241.       Begin Menu MIEditCopy 
  242.          Caption         =   "&Copy"
  243.          Shortcut        =   ^C
  244.       End
  245.       Begin Menu MIEditPaste 
  246.          Caption         =   "&Paste"
  247.          Shortcut        =   ^V
  248.       End
  249.    End
  250.    Begin Menu ABFont 
  251.       Caption         =   "F&ont"
  252.       Begin Menu MIFontBold 
  253.          Caption         =   "&Bold"
  254.          Shortcut        =   ^B
  255.       End
  256.       Begin Menu MIFontItalic 
  257.          Caption         =   "&Italic"